home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / DB / DBINT72 / DBINT72.VRF < prev    next >
Encoding:
Text File  |  1995-11-01  |  6.8 KB  |  193 lines
  1. /* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.   dbint72.vrf - V3 version analysis/product configuration script
  5.  
  6.   DESCRIPTION
  7.     This script checks dependencies and environment settings
  8.  
  9.   OWNER
  10.     Zakia Zerhouni
  11.  
  12.   MODIFIED    DD-MMM-YY  Reason
  13.   ekhor       10/31/95   added web_install processing
  14.   LMurphy     06/19/95   Modified for Windows 95 GUI
  15.   LMurphy     23-JAN-95  Modified for use with SQL*Net v1.1 help
  16.   zzerhoun    04-JAN-95  Created.
  17. *****************************************************************************/
  18. {
  19.   {
  20.     doit = execute("%installer_home%\win95.vrf");
  21.   }
  22.   [
  23.     'UNBOUND_VARIABLE:
  24.     {
  25.       required_version = product_version(w95instver);
  26.       temp             = explode(required_version, ".");
  27.       required_version = implode(list(first(temp),
  28.                                       first(rest(temp)), 
  29.                                       first(rest(rest(temp))),
  30.                                       first(rest(rest(rest(temp))))), ".");
  31.       signal('failure,instantiate(nls("instver_too_early1","The version of the Installer currently running is %%installer_version%%. The installation you have chosen requires version %%required_version%%. Please run version %%required_version%% in order to perform this installation."))); 
  32.      }
  33.   ]     /* This FAILURE will cause 3.0.9.x installer to exit gracefully. */
  34.  
  35.   if (not(doit) && (version_status == 'reinstall))
  36.   {
  37.     if(member(selected_products, current_product) ||
  38.        member(selected_products, product_parent(current_product)))    
  39.       doit = TRUE;
  40.   }
  41.  
  42.   if (doit)
  43.   {
  44.  
  45.       {
  46.         set_nav72 = FALSE;
  47.         nav72 = v7_translate("NAV72");
  48.  
  49.         if (not(exists(nav72)))
  50.           signal('UNBOUND_ENVIRONMENT_VARIABLE);
  51.       }
  52.         [ 'OS_ERROR,'INVALID_FILE_NAME,
  53.           'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
  54.           {
  55.             nav72 = "%oracle_home%\NAV72";
  56.             set_nav72 = TRUE;
  57.           }
  58.         ]
  59.  
  60.  
  61.             po7_expl = nls("po7_expl", "%%product_label%% (PO7.EXE) is currently running on this machine. Please close this application before installing %%product_label%%.
  62.  
  63. Silent mode installation of %%product_label%% terminated.");
  64.             po7_inst = instantiate(nls("po7_inst", "%%product_label%% (PO7.EXE) is currently running on this machine. Please close this application before installing %%product_label%%.
  65.  
  66. Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.
  67.  
  68. Choose CANCEL to terminate the installation of %%product_label%%.
  69.             "));
  70.             po7_inst_term = instantiate(nls("po7_inst_term", "%%product_label%% installation terminated."));
  71.             po7_inst_content = instantiate(nls("po7_inst_content", "%%product_label%% Running"));
  72.             po7_inst_help = instantiate(nls("po7_inst_help", "The Oracle Installer has detected that %%product_label%% (PO7.EXE) is currently running on this machine.  Please close this application before installing %%product_label%%.
  73.  
  74. Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.
  75.  
  76. Choose CANCEL to terminate the installation of %%product_label%%.
  77.             "));
  78.  
  79.             /* check to see if the po7 app is closed */
  80.            done = FALSE;
  81.            while(not(done))
  82.            { move_file("%ORACLE_HOME%\bin\po7.exe", "%ORACLE_HOME%\bin\po7.exe"); done = TRUE;}
  83.               [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
  84.                {
  85.                  if (silent_mode)
  86.                    signal('FAILURE, instantiate(po7_expl));
  87.                  else
  88.                    information_dialog(instantiate(po7_inst), po7_inst_content, instantiate(po7_inst_help));
  89.                }
  90.                 'FILE_NOT_FOUND:
  91.                  done = TRUE;
  92.               ]
  93.  
  94.     /*****************************
  95.     Set the VRF-INS script ratchet
  96.     ******************************/
  97.  
  98.     vrf_ratchet = "7.2.2.3.1";
  99.  
  100.     permit_retry_operations = FALSE;
  101.  
  102.     /***************************************
  103.     Bind string variables and prompt strings
  104.     ****************************************/
  105.  
  106.     { install_type = install_type; }
  107.         ['UNBOUND_VARIABLE: install_type = nls("custom_install","Custom Install");]
  108.  
  109.     { bundle_name = bundle_name; }
  110.         ['UNBOUND_VARIABLE: bundle_name = nls("bundle_name","Personal Oracle7 for Windows 95");]
  111.  
  112.     { web_install = web_install; }
  113.     [ 'UNBOUND_VARIABLE: web_install = FALSE; ]
  114.  
  115.     win95_sys_dir = windows_system_directory();
  116.     win95_dir = windows_directory();
  117.  
  118.     installing_scripts = nls("installing_scripts",
  119.                              "Installing %%product_label%% Scripts...");
  120.  
  121.         installing_executables = nls("installing_executables",
  122.                                "Installing %%product_label%% Executables...");
  123.  
  124.     installing_dlls = nls("installing_dlls",
  125.                                "Installing %%product_label%% Dynamic Link Libraries...");
  126.  
  127.         installing_doc = nls("installing_doc",
  128.                                "Installing %%product_label%% Help Files...");
  129.     registering = nls("registering","Registering %%product_label%%...");
  130.     
  131.     modifying_config = nls("modifying_config", "Modifying Windows 95 Registry...");
  132.  
  133.     copy_sample = FALSE;
  134.     sum_sample = 0;
  135.     { init_value = win32_get_value("HKEY_CURRENT_USER", "Software\ORACLE\Personal Oracle7 Navigator\Settings", "Init"); }
  136.     [ 'INVALID_KEY, 'OS_ERROR, 'FILE_NOT_FOUND: init_value = 0;
  137.     ]
  138.  
  139.     if (init_value == 0)
  140.     {
  141.         copy_sample = TRUE;
  142.         sum_sample = sum(sample);
  143.     }
  144.  
  145.     install_parent = FALSE;
  146.     if (member(selected_products, current_product))
  147.         install_parent = TRUE;
  148.  
  149.     /***************************************
  150.     Return total size of files when required
  151.     ***************************************/
  152.  
  153.     total_sum = 0;
  154.     if (install_parent)
  155.     {
  156.  
  157.         /********************************************
  158.         Determine sibling products to be co-installed
  159.         *********************************************/
  160.         sibling_products = all_child_products(product_parent(current_product));
  161.                     
  162.         extract(sibling_products, current_product);             
  163.         /* ALWAYS verify all siblings before parent */
  164.  
  165.         while(not(empty(sibling_products)))
  166.         {
  167.             if (member(selected_products, first(sibling_products)))
  168.                 total_sum = total_sum + verify(first(sibling_products));
  169.             sibling_products = rest(sibling_products);
  170.         }
  171.  
  172.         total_sum = total_sum + verify(product_parent(current_product));
  173.     }
  174.  
  175.         vsn = "PO7";
  176.         if (web_install)
  177.         {
  178.           vsn = "WEB";
  179.         }
  180.         else
  181.         {
  182.           vsn = "PO7";
  183.         }
  184.         return(verify(w95rsf72) + sum(deinst,exe,dll,vsn) + sum_sample + total_sum);
  185.   }
  186.   else  /* if (doit) */
  187.   {
  188.     refresh_map_file = FALSE;
  189.     return(0);
  190.   }
  191. }
  192.  
  193.